unit SmallStruct.Core.TSSObject;

interface

uses Classes,
  SmallStruct.Core;

type
  TSSObject = class(TComponent, ISSObject)
  protected
    function GetObjectInstance: TComponent;
    procedure ReleaseObjectInstance;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

implementation

{ TSSObject }

constructor TSSObject.Create(AOwner: TComponent);
begin
  inherited;
end;

destructor TSSObject.Destroy;
begin
  inherited;
end;

function TSSObject.GetObjectInstance: TComponent;
begin
  Result := Self;
end;

procedure TSSObject.ReleaseObjectInstance;
begin
  Free;
end;

end.
